home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / menus / marxmenu / custom.inc next >
Text File  |  1996-07-10  |  2KB  |  95 lines
  1. Comment
  2. ========================================================================
  3.  
  4. MarxMenu supports several "Look and Feel" options. You can choose from:
  5.  
  6. NOVELL.INC
  7. BLOCK.INC
  8. GRID.INC
  9.  
  10. By including different files MarxMenu compiles the same menu with
  11. completely different looks.
  12.  
  13. Colors are set by editing these include files.
  14.  
  15. ========================================================================
  16. EndComment
  17.  
  18. ;----- Select include file.
  19.  
  20. Include 'NOVELL.INC'
  21. ;Include 'BLOCK.INC'
  22. ;Include 'GRID.INC'
  23.  
  24. ;----- Turn this on if you like the Greek Column Look.
  25.  
  26. Greek On
  27.  
  28. OnScreenOnly ;limits choices to those on the screen only.
  29. AllowEsc
  30. AllowAbort Off
  31. UseArrows
  32. LookSetup
  33.  
  34. ;================< FEATURE CONTROL AREA >================
  35.  
  36. ;----- WORM.INC loads the example custom screen blanker program
  37.  
  38.   Include 'WORM.INC'
  39.  
  40. ;----- Set up the blank screen message if you want one.
  41.  
  42.   BlankMessage = ''
  43.  
  44. ;----- Change BlankTime to 0 if you do not want to blank the screen.
  45.  
  46.   BlankTime = 5
  47.  
  48. ;----- Change LogoffTime to number of minutes if you want timed Logoff.
  49.  
  50.   LogoffTime = 0
  51.  
  52. ;----- Use Novell Password or LockWord to unlock the screen blanker.
  53.  
  54. if NetworkVersion
  55.    if NovConnection <> 0
  56.       UseNovPassword Off    ;change to On to activate this feature
  57.    else
  58.       LockWord = ''
  59.    endif
  60. endif
  61.  
  62. ;----- This makes the menu come back to the same menu level.
  63.  
  64.   SavePosition On
  65.  
  66. ;----- Control Explode effects.
  67.  
  68.   Explode On
  69.  
  70.  
  71. ;========================================================
  72.  
  73. ;----- Support routines for conditional menus
  74.  
  75. Var
  76.   IndexString
  77.  
  78. ;----- Adds a choice to list
  79.  
  80. Procedure AddChoice (Prompt,TaskNum)
  81.    IndexString[CurrentWindow + 1] = Left(IndexString[CurrentWindow + 1],NumberOfElements(Choices)) + Char(TaskNum + 64)
  82.    AppendArray(Choices,Prompt)
  83. EndProc
  84.  
  85. ;----- Compares TaskNum to Choice
  86.  
  87. Procedure Task (TaskNum)
  88.    if Mid(IndexString[CurrentWindow],Ord(LastKey) - 64,1) = Char(TaskNum + 64)
  89.       Return LastKey
  90.    else
  91.       Return ""
  92.    endif
  93. EndProc
  94.  
  95.